BBS in a Box 11

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / D-G / FORTRAN Goodies.sit / FORTRAN Goodies / String Utilities / StringWord.f < prev
MacBinary | 1990-10-25 | 2.6 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: StringWord.f
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Freeze Frozen Compressed File `(archive/freeze)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MathVISION Formula `(other/mathVISIONFormula)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Thu Oct 25 14:30:45 1990, modified Thu Oct 25 14:30:45 1990, creator 'MPS ', type ASCII, 2141 bytes "StringWord.f" , at 0x8dd 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 53 74 72 69 6e 67 | 57 6f 72 64 2e 66 00 00 |..String|Word.f..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 08 5d 00 | 00 01 7e a3 4c df d5 a3 |......].|..~.L...|
|00000060| 4c df d5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ed 2b 00 00 |........|.....+..|
|00000080| 63 0d 63 20 09 52 65 74 | 75 72 6e 73 20 74 68 65 |c.c .Ret|urns the|
|00000090| 20 4e 2d 74 68 20 77 6f | 72 64 20 28 73 70 61 63 | N-th wo|rd (spac|
|000000a0| 65 20 64 65 6c 69 6d 69 | 74 65 64 29 0d 63 0d 63 |e delimi|ted).c.c|
|000000b0| 20 09 46 75 6e 63 74 69 | 6f 6e 20 53 74 72 69 6e | .Functi|on Strin|
|000000c0| 67 57 6f 72 64 0d 63 09 | 09 54 61 6b 65 73 20 61 |gWord.c.|.Takes a|
|000000d0| 20 73 74 72 69 6e 67 20 | 61 6e 64 20 61 6e 20 69 | string |and an i|
|000000e0| 6e 74 65 67 65 72 2a 34 | 20 77 6f 72 64 20 6e 75 |nteger*4| word nu|
|000000f0| 6d 62 65 72 20 61 73 20 | 69 6e 70 75 74 2e 0d 63 |mber as |input..c|
|00000100| 09 09 52 65 74 75 72 6e | 73 20 61 20 50 41 53 43 |..Return|s a PASC|
|00000110| 41 4c 2d 74 79 70 65 20 | 73 74 72 69 6e 67 20 28 |AL-type |string (|
|00000120| 77 6f 72 64 20 6e 29 20 | 61 73 20 72 65 73 75 6c |word n) |as resul|
|00000130| 74 2e 0d 63 09 09 6e 6f | 74 65 3a 20 77 6f 72 64 |t..c..no|te: word|
|00000140| 73 20 61 72 65 20 73 65 | 70 61 72 61 74 65 64 20 |s are se|parated |
|00000150| 62 79 20 77 68 69 74 65 | 73 70 61 63 65 0d 63 0d |by white|space.c.|
|00000160| 63 09 45 78 61 6d 70 6c | 65 20 70 72 6f 76 69 64 |c.Exampl|e provid|
|00000170| 65 64 20 66 6f 72 20 6f | 77 6e 65 72 73 20 6f 66 |ed for o|wners of|
|00000180| 20 4c 61 6e 67 75 61 67 | 65 20 53 79 73 74 65 6d | Languag|e System|
|00000190| 73 20 46 4f 52 54 52 41 | 4e 0d 63 09 a9 ca 31 39 |s FORTRA|N.c...19|
|000001a0| 39 30 20 4c 61 6e 67 75 | 61 67 65 20 53 79 73 74 |90 Langu|age Syst|
|000001b0| 65 6d 73 20 43 6f 72 70 | 2e 0d 63 0d 63 09 41 64 |ems Corp|..c.c.Ad|
|000001c0| 61 70 74 65 64 20 66 72 | 6f 6d 20 61 20 72 6f 75 |apted fr|om a rou|
|000001d0| 74 69 6e 65 20 69 6e 20 | 57 69 6c 64 20 54 68 69 |tine in |Wild Thi|
|000001e0| 6e 67 73 2e 0d 63 0d 20 | 09 73 74 72 69 6e 67 20 |ngs..c. |.string |
|000001f0| 66 75 6e 63 74 69 6f 6e | 20 53 74 72 69 6e 67 57 |function| StringW|
|00000200| 6f 72 64 28 74 68 65 53 | 74 72 69 6e 67 2c 74 68 |ord(theS|tring,th|
|00000210| 65 57 6f 72 64 4e 75 6d | 62 65 72 29 0d 09 09 0d |eWordNum|ber)....|
|00000220| 43 09 09 72 65 63 65 69 | 76 65 20 74 68 65 20 61 |C..recei|ve the a|
|00000230| 72 67 75 6d 65 6e 74 20 | 62 79 20 44 65 73 63 72 |rgument |by Descr|
|00000240| 69 70 74 6f 72 0d 0d 09 | 73 74 72 75 63 74 75 72 |iptor...|structur|
|00000250| 65 20 2f 44 65 73 63 52 | 65 63 2f 0d 09 09 70 6f |e /DescR|ec/...po|
|00000260| 69 6e 74 65 72 20 2f 63 | 68 61 72 61 63 74 65 72 |inter /c|haracter|
|00000270| 2a 31 2f 20 44 61 74 61 | 50 74 72 0d 09 09 69 6e |*1/ Data|Ptr...in|
|00000280| 74 65 67 65 72 2a 32 20 | 44 61 74 61 53 69 7a 65 |teger*2 |DataSize|
|00000290| 0d 09 09 69 6e 74 65 67 | 65 72 2a 32 20 53 79 6d |...integ|er*2 Sym|
|000002a0| 54 0d 09 65 6e 64 20 73 | 74 72 75 63 74 75 72 65 |T..end s|tructure|
|000002b0| 0d 09 72 65 63 6f 72 64 | 20 2f 44 65 73 63 52 65 |..record| /DescRe|
|000002c0| 63 2f 20 74 68 65 53 74 | 72 69 6e 67 0d 0d 09 69 |c/ theSt|ring...i|
|000002d0| 6e 74 65 67 65 72 2a 34 | 20 09 09 63 68 61 72 64 |nteger*4| ..chard|
|000002e0| 2c 73 74 72 6e 67 64 0d | 09 70 61 72 61 6d 65 74 |,strngd.|.paramet|
|000002f0| 65 72 20 09 09 28 63 68 | 61 72 64 3d 31 38 2c 73 |er ..(ch|ard=18,s|
|00000300| 74 72 6e 67 64 3d 31 39 | 29 0d 0d 09 69 6e 74 65 |trngd=19|)...inte|
|00000310| 67 65 72 2a 34 09 09 53 | 74 72 69 6e 67 4c 65 6e |ger*4..S|tringLen|
|00000320| 2c 74 68 65 57 6f 72 64 | 4e 75 6d 62 65 72 0d 09 |,theWord|Number..|
|00000330| 69 6e 74 65 67 65 72 2a | 34 09 09 57 6f 72 64 2c |integer*|4..Word,|
|00000340| 73 74 61 72 74 43 2c 73 | 74 6f 70 43 0d 09 70 6f |startC,s|topC..po|
|00000350| 69 6e 74 65 72 09 09 09 | 2f 63 68 61 72 61 63 74 |inter...|/charact|
|00000360| 65 72 2a 31 2f 20 70 74 | 72 31 2c 70 74 72 32 2c |er*1/ pt|r1,ptr2,|
|00000370| 70 74 72 33 0d 09 6c 6f | 67 69 63 61 6c 2a 34 09 |ptr3..lo|gical*4.|
|00000380| 09 57 68 69 74 65 53 70 | 61 63 65 0d 0d 43 20 70 |.WhiteSp|ace..C p|
|00000390| 75 74 20 74 68 65 20 61 | 64 64 72 65 73 73 20 6f |ut the a|ddress o|
|000003a0| 66 20 74 68 65 20 63 68 | 61 72 61 63 74 65 72 73 |f the ch|aracters|
|000003b0| 20 69 6e 74 6f 20 61 20 | 6c 6f 63 61 6c 20 76 61 | into a |local va|
|000003c0| 72 69 61 62 6c 65 0d 09 | 0d 09 70 74 72 31 20 3d |riable..|..ptr1 =|
|000003d0| 20 74 68 65 53 74 72 69 | 6e 67 2e 44 61 74 61 50 | theStri|ng.DataP|
|000003e0| 74 72 0d 0d 43 20 20 73 | 74 6f 72 65 20 74 68 65 |tr..C  s|tore the|
|000003f0| 20 73 69 7a 65 20 6f 66 | 20 74 68 65 20 73 74 72 | size of| the str|
|00000400| 69 6e 67 0d 0d 09 53 74 | 72 69 6e 67 4c 65 6e 20 |ing...St|ringLen |
|00000410| 3d 20 4d 49 4e 28 32 35 | 35 2c 69 63 68 61 72 28 |= MIN(25|5,ichar(|
|00000420| 70 74 72 31 5e 29 29 0d | 09 70 74 72 31 20 3d 20 |ptr1^)).|.ptr1 = |
|00000430| 70 74 72 31 20 2b 20 31 | 0d 0d 63 20 73 6b 69 70 |ptr1 + 1|..c skip|
|00000440| 20 61 6e 79 20 77 6f 72 | 64 73 20 77 65 20 64 6f | any wor|ds we do|
|00000450| 6e 27 74 20 77 61 6e 74 | 0d 0d 09 70 74 72 32 20 |n't want|...ptr2 |
|00000460| 3d 20 70 74 72 31 0d 09 | 57 6f 72 64 20 3d 20 31 |= ptr1..|Word = 1|
|00000470| 0d 09 64 6f 20 77 68 69 | 6c 65 20 28 57 6f 72 64 |..do whi|le (Word|
|00000480| 20 3c 20 74 68 65 57 6f | 72 64 4e 75 6d 62 65 72 | < theWo|rdNumber|
|00000490| 29 0d 09 09 64 6f 20 77 | 68 69 6c 65 20 28 28 57 |)...do w|hile ((W|
|000004a0| 68 69 74 65 53 70 61 63 | 65 28 70 74 72 32 29 29 |hiteSpac|e(ptr2))|
|000004b0| 20 2e 61 6e 64 2e 20 28 | 28 70 74 72 32 2d 70 74 | .and. (|(ptr2-pt|
|000004c0| 72 31 29 20 3c 20 53 74 | 72 69 6e 67 4c 65 6e 29 |r1) < St|ringLen)|
|000004d0| 29 0d 09 09 09 70 74 72 | 32 20 3d 20 70 74 72 32 |)....ptr|2 = ptr2|
|000004e0| 20 2b 20 31 0d 09 09 65 | 6e 64 20 64 6f 0d 09 09 | + 1...e|nd do...|
|000004f0| 64 6f 20 77 68 69 6c 65 | 20 28 28 2e 6e 6f 74 2e |do while| ((.not.|
|00000500| 20 57 68 69 74 65 53 70 | 61 63 65 28 70 74 72 32 | WhiteSp|ace(ptr2|
|00000510| 29 29 20 2e 61 6e 64 2e | 20 28 28 70 74 72 32 2d |)) .and.| ((ptr2-|
|00000520| 70 74 72 31 29 20 3c 20 | 53 74 72 69 6e 67 4c 65 |ptr1) < |StringLe|
|00000530| 6e 29 29 0d 09 09 09 70 | 74 72 32 20 3d 20 70 74 |n))....p|tr2 = pt|
|00000540| 72 32 20 2b 20 31 0d 09 | 09 65 6e 64 20 64 6f 0d |r2 + 1..|.end do.|
|00000550| 09 09 57 6f 72 64 20 3d | 20 57 6f 72 64 20 2b 20 |..Word =| Word + |
|00000560| 31 0d 09 65 6e 64 20 64 | 6f 0d 0d 63 20 73 6b 69 |1..end d|o..c ski|
|00000570| 70 20 61 6e 79 20 77 68 | 69 74 65 20 73 70 61 63 |p any wh|ite spac|
|00000580| 65 20 62 65 66 6f 72 65 | 20 64 65 73 69 72 65 64 |e before| desired|
|00000590| 20 77 6f 72 64 0d 0d 09 | 64 6f 20 77 68 69 6c 65 | word...|do while|
|000005a0| 20 28 28 57 68 69 74 65 | 53 70 61 63 65 28 70 74 | ((White|Space(pt|
|000005b0| 72 32 29 29 20 2e 61 6e | 64 2e 20 28 28 70 74 72 |r2)) .an|d. ((ptr|
|000005c0| 32 2d 70 74 72 31 29 20 | 3c 20 53 74 72 69 6e 67 |2-ptr1) |< String|
|000005d0| 4c 65 6e 29 29 0d 09 09 | 70 74 72 32 20 3d 20 70 |Len))...|ptr2 = p|
|000005e0| 74 72 32 20 2b 20 31 0d | 09 65 6e 64 20 64 6f 0d |tr2 + 1.|.end do.|
|000005f0| 09 73 74 61 72 74 43 20 | 3d 20 31 20 2b 20 28 70 |.startC |= 1 + (p|
|00000600| 74 72 32 20 2d 20 70 74 | 72 31 29 0d 09 0d 63 20 |tr2 - pt|r1)...c |
|00000610| 66 69 6e 64 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |find the| end of |
|00000620| 74 68 65 20 77 6f 72 64 | 0d 0d 09 70 74 72 33 20 |the word|...ptr3 |
|00000630| 3d 20 70 74 72 32 0d 09 | 64 6f 20 77 68 69 6c 65 |= ptr2..|do while|
|00000640| 20 28 28 2e 6e 6f 74 2e | 20 57 68 69 74 65 53 70 | ((.not.| WhiteSp|
|00000650| 61 63 65 28 70 74 72 33 | 29 29 20 2e 61 6e 64 2e |ace(ptr3|)) .and.|
|00000660| 20 28 28 70 74 72 33 2d | 70 74 72 31 29 20 3c 20 | ((ptr3-|ptr1) < |
|00000670| 53 74 72 69 6e 67 4c 65 | 6e 29 29 0d 09 09 70 74 |StringLe|n))...pt|
|00000680| 72 33 20 3d 20 70 74 72 | 33 20 2b 20 31 0d 09 65 |r3 = ptr|3 + 1..e|
|00000690| 6e 64 20 64 6f 0d 09 73 | 74 6f 70 43 20 3d 20 73 |nd do..s|topC = s|
|000006a0| 74 61 72 74 43 20 2b 20 | 28 70 74 72 33 20 2d 20 |tartC + |(ptr3 - |
|000006b0| 70 74 72 32 29 20 2d 20 | 31 0d 09 69 66 20 28 73 |ptr2) - |1..if (s|
|000006c0| 74 6f 70 43 20 3c 20 73 | 74 61 72 74 43 29 20 73 |topC < s|tartC) s|
|000006d0| 74 6f 70 43 20 3d 20 73 | 74 61 72 74 43 0d 0d 09 |topC = s|tartC...|
|000006e0| 53 74 72 69 6e 67 57 6f | 72 64 20 3d 20 70 74 72 |StringWo|rd = ptr|
|000006f0| 31 5e 28 73 74 61 72 74 | 43 3a 73 74 6f 70 43 29 |1^(start|C:stopC)|
|00000700| 0d 09 0d 09 72 65 74 75 | 72 6e 0d 09 65 6e 64 0d |....retu|rn..end.|
|00000710| 63 0d 63 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |c.c*****|********|
|00000720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000740| 2a 2a 2a 2a 2a 63 0d 63 | 0d 63 20 46 75 6e 63 74 |*****c.c|.c Funct|
|00000750| 69 6f 6e 20 57 68 69 74 | 65 53 70 61 63 65 0d 63 |ion Whit|eSpace.c|
|00000760| 09 54 61 6b 65 73 20 61 | 20 70 6f 69 6e 74 65 72 |.Takes a| pointer|
|00000770| 20 74 6f 20 61 20 63 68 | 61 72 61 63 74 65 72 20 | to a ch|aracter |
|00000780| 61 73 20 69 6e 70 75 74 | 2e 0d 63 09 52 65 74 75 |as input|..c.Retu|
|00000790| 72 6e 73 20 61 20 6c 6f | 67 69 63 61 6c 2a 34 20 |rns a lo|gical*4 |
|000007a0| 54 52 55 45 20 69 66 20 | 74 68 65 20 63 68 61 72 |TRUE if |the char|
|000007b0| 61 63 74 65 72 0d 63 09 | 20 20 69 73 20 61 20 74 |acter.c.|  is a t|
|000007c0| 61 62 2c 72 65 74 75 72 | 6e 20 6f 72 20 73 70 61 |ab,retur|n or spa|
|000007d0| 63 65 2e 0d 63 0d 09 6c | 6f 67 69 63 61 6c 2a 34 |ce..c..l|ogical*4|
|000007e0| 20 66 75 6e 63 74 69 6f | 6e 20 57 68 69 74 65 53 | functio|n WhiteS|
|000007f0| 70 61 63 65 28 70 74 72 | 29 0d 09 0d 09 70 6f 69 |pace(ptr|)....poi|
|00000800| 6e 74 65 72 20 2f 62 79 | 74 65 2f 20 70 74 72 0d |nter /by|te/ ptr.|
|00000810| 09 0d 09 73 65 6c 65 63 | 74 20 63 61 73 65 28 70 |...selec|t case(p|
|00000820| 74 72 5e 29 0d 09 09 63 | 61 73 65 28 39 2c 31 33 |tr^)...c|ase(9,13|
|00000830| 2c 33 32 29 09 21 41 53 | 43 49 49 20 76 61 6c 75 |,32).!AS|CII valu|
|00000840| 65 73 20 6f 66 20 74 61 | 62 2c 20 72 65 74 75 72 |es of ta|b, retur|
|00000850| 6e 2c 20 73 70 61 63 65 | 0d 09 09 09 57 68 69 74 |n, space|....Whit|
|00000860| 65 53 70 61 63 65 20 3d | 20 2e 74 72 75 65 2e 0d |eSpace =| .true..|
|00000870| 09 09 63 61 73 65 20 64 | 65 66 61 75 6c 74 0d 09 |..case d|efault..|
|00000880| 09 09 57 68 69 74 65 53 | 70 61 63 65 20 3d 20 2e |..WhiteS|pace = .|
|00000890| 66 61 6c 73 65 2e 0d 09 | 65 6e 64 20 73 65 6c 65 |false...|end sele|
|000008a0| 63 74 0d 09 72 65 74 75 | 72 6e 0d 09 65 6e 64 0d |ct..retu|rn..end.|
|000008b0| 63 0d 63 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |c.c*****|********|
|000008c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 63 0d 00 00 00 |********|***c....|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000910| 84 00 08 00 14 00 2c 00 | 44 30 2e ff e8 12 2a 01 |......,.|D0....*.|
|00000920| 32 60 00 fe 0e 30 2e ff | f0 53 40 e9 40 43 f2 00 |2`...0..|.S@.@C..|
|00000930| 0c 53 74 72 69 6e 67 57 | 6f 72 64 2e 66 3f 02 00 |.StringW|ord.f?..|
|00000940| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000950| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 a9 80 18 cf 00 00 | 00 00 00 00 01 7e 18 60 |........|.....~.`|
|00000980| 22 20 1f 20 5f 2f 00 4e | 56 ff d6 48 e7 1f 38 28 |" . _/.N|V..H..8(|
|00000990| 48 61 00 fd f6 60 0c 4e | 56 ff d6 48 e7 1f 38 61 |Ha...`.N|V..H..8a|
|000009a0| 00 fd e0 45 ee ff ea 3e | 12 04 47 00 0c 20 54 18 |...E...>|..G.. T.|
|000009b0| 28 00 0b 4a 28 00 0a 67 | 1c 6b 06 4a 07 6b 16 60 |(..J(..g|.k.J.k.`|
|000009c0| 12 4a 52 66 06 34 bc 00 | 0c 60 0a 4a 07 6b 06 66 |.JRf.4..|.`.J.k.f|
|000009d0| 02 7e 0c 34 87 76 02 4a | 2e 00 0c 66 02 53 43 30 |.~.4.v.J|...f.SC0|
|000009e0| 1a 20 4b 4a 04 5b c1 61 | 00 fd 48 d8 04 4a 43 67 |. KJ.[.a|..H..JCg|
|000009f0| 0a 22 54 10 29 00 14 61 | 00 fd 64 51 cb ff e2 22 |."T.)..a|..dQ..."|
|00000a00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6f 63 75 |...H..Mo|naco.ocu|
|00000a10| 6d 65 6e 74 0b 6f 70 65 | 6e 20 66 6f 6c 64 65 72 |ment.ope|n folder|
|00000a20| 06 66 6f 6c 64 65 00 06 | 00 04 00 2c 00 05 00 ce |.folde..|...,....|
|00000a30| 01 98 00 2c 00 05 00 ce | 01 98 a3 4c 99 85 00 00 |...,....|...L....|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000a50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 2d cc 74 |...L...L|...2.-.t|
|00000a60| 08 74 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.t.....2|..MPSR..|
|00000a70| 00 0a 03 ed ff ff 00 00 | 00 00 00 2f 6e b0 00 00 |........|.../n...|
+--------+-------------------------+-------------------------+--------+--------+